function [a x y] = Remes1_modificat( n, f, x, y, nrapel)
%Functia care calculeaza coeficentii polinomului Remes1
%dar care primeste ca parametrii pe x si pe y, fara a-i
%mai calcula.
    if( length( x ) !=  n + 2 )
		n = length( x ) - 2 ;
	endif
	for k = 1:n+2
		z(k) = ( -1 ) ^ ( k - 1 );
	endfor
	r = coefLagr1( x, y);
	s = coefLagr1( x, z);
	E = r(n + 2)/s( n + 2);
	for k = 1:n+2
		a(k) = r(k) - E * s(k);
	endfor

endfunction

